home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / net / AmiComSys.lha / AmiComSys / rexx / SendIRC.amicomsys < prev    next >
Text File  |  1998-01-25  |  513b  |  26 lines
  1. /* Send IRC-address to your IRC-client
  2.  Currently supported is AmIRC.
  3.  $VER: SendIRC.amicomsys 1.0 (24.1.1998) Håkan Parting
  4. */
  5. parse arg server'/'channel
  6.  
  7. /*
  8. if show('P','AMIRC.1') then
  9. do
  10.     ADDRESS AMIRC.1 SAY "/SERVER "server
  11.     ADDRESS AMIRC.1 SAY "/JOIN "channel
  12.     Exit
  13. end
  14. */
  15.  
  16. /* Set the path to your AmIRC-client under the Misc-page in AmiComSys settings.
  17. */
  18.  
  19. OPTIONS RESULTS;
  20.  
  21. ADDRESS AMICOMSYS GET stem info.;
  22.  
  23. ADDRESS COMMAND "c:run >NIL: "info.ircprgpath" Server="server" AutoJoin="channel" connect"
  24.  
  25. Exit
  26.